      subroutine TESTIT(x,n,m)
      dimension x(n)
      do 10 i=1,n
10      x(i)=x(i)**m
      end

